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Ñ La unidad 
central 
de proceso 


A unidad central de 
proceso es el núcleo 
del ordenador. Es, 
por tanto, un elemen- 
to clave en la cons- 
trucción y desarrollo 
de cualquier sistema. 
En nuestro recorrido a 
través de la CPU, vamos a encontrar, a 
primera vista, componentes electrónicos 
y circuitería, comenzando por la tarjeta 
impresa, que además de servir de sopor- 
te, los conecta, constituyendo una limpia 
red de circuitos integrados, como transis- 
tores y puertas lógicas. 


A? La íntima relación que mantienen 

Jj) hardware y software no se ha mantenido 
' en su evolución, siendo la parte 

mecánica la que ha tenido un desarrollo mucho 

mayor en los últimos años. 


| Composición 


Podemos diferenciar a grandes rasgos 
tres componentes fundamentales de la 
CPU. Son: 
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EL MICROPROCESADOR 


— La unidad de control. 
— La unidad aritmético-lógica. 
— Un conjunto de registros. 


Como su nombre indica, la unidad de 
control (UC) tiene la función de coordinar 
todos los elementos que van a formar 
parte de la realización de un proceso 
concreto. Para ello debe de interpretar 
correctamente el programa del que reci- 
be las instrucciones, codificarlo conve- 
nientemente, y enviar las órdenes opor- 
tunas a las unidades implicadas en el 
proceso. Para realizar esto cuenta con 
los otros bloques ya citados. Otro compo- 
nente fundamental es el reloj, que se en- 
carga de producir los impulsos necesa- 
rios para que las diferentes unidades se 
sincronicen correctamente. 

La unidad aritmético-lógica (ALU) ten- 
drá como misión la ejecución de las ope- 
raciones de acuerdo a la estructura inter- 
na, ya que no todos los ordenadores rea- 
lizan los mismos juegos de operaciones. 
Normalmente el número de operaciones 
posibles es bastante limitado por lo que 
será necesario combinarlas para poder 
realizar los procesos requeridos. 

El conjunto de registros que antes men- 
cionábamos constituye una pequeña 
memoria interna de la que se vale la CPU 
para manejar correctamente la informa- 
ción precisa en cada momento. 

Este conjunto de tres bloques es lo que 
constituye el microprocesador. 


[4 Esquema general de la CPU. 


Unidad aritmético-lógica 


Los verdaderos componentes del orde- 
nador son los transistores, diodos, resis- 
tencias y condensadores. Por tanto, para 
entender el funcionamiento del ordenador 
tendremos que considerar varias cosas 
de las que ya hemos hablado en anterio- 
res capítulos. 


— El ordenador utiliza «lógica binaria», 
es decir, el sistema de numeración en 
base dos que sólo admite dos dígitos, el 
0Oyel!l. 

— Las funciones lógicas se realizan 
mediante álgebra de Boole, que utiliza 
las funciones «y», «O», y «no». 


Los elementos físicos que llevan a cabo 
las funciones lógicas son las llamadas 
«puertas lógicas». Mediante la combina- 
ción de estas puertas se llega a realizar 
cualquier tipo de función. La función «no» 
invierte el significado de un elemento. La 
función lógica «y» solamente es cierta 
cuando lo son los dos elementos que re- 
laciona. En caso de la función «o», sola- 
mente con que se cumpla una de las afir- 
maciones, la función será válida. 


Puerta lógica «NO» 


Puerta lógica «O» 


Representación gráfica de las puertas 
lógicas. 


M Unidad de control 


Como ya se ha comentado, ésta es la 
parte que se encarga de coordinar todos 
los elementos adecuadamente para que 


el ordenador ejecute lo que le pedimos. 
Evidentemente, esto sólo se puede reali- 
zar mediante circuitos de control, con 
una distribución adecuada del tiempo, 
que ya hemos dicho que la efectúa el 
reloj. 


La labor de la unidad de control está 
guiada por el programa, sin embargo, el 
microprocesador y, por tanto, esta uni- 
dad no puede ejecutar sus órdenes di- 
rectamente. Para ello se dispone de otra 
pieza electrónica llamada decodificador, 
que se encarga de «traducir» adecuada- 
mente cada una de las instrucciones del 
programa a unidades elementales de 
ejecución que ya tienen significado para 
el microprocesador. 


Ejecución. 
Los registros 


Son de dos tipos: 


— Generales, que a su vez están clasifi- 
cados en dos grupos: principales y alter- 
nativos. Pueden utilizarse individualmente 
o por parejas, ampliando la cantidad de 
bits que se tratan a la vez. Los registros 
principales se utilizan como acumulado- 
res auxiliares, y los alternativos sólo los 
manipulados por instrucciones que inter- 
cambian su contenido con el de los prin- 
cipales; se utilizan como lugar seguro 
donde almacenar los datos temporal- 
mente. 
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— Especiales. Son registros especiales 
los siguientes: 


El acumulador. Guarda el resultado 
de todas las operaciones aritméticas y 
lógicas. 

El registro de estado. Almacena las 
señales de condición generadas por 
la ALU que se utilizarán en las instruc- 
ciones de salto; también sirve para dar 
cuenta de ciertas características, 
como: acarreo, desbordamientos, pa- 
ridad, etc. 

Contador de programa. Contienen la 
dirección del byte de la memoria que 
debe leer el microprocesador. 

Puntero de pila. Contiene la direc- 
ción actual del tope de la pila, que 
puede estar colocada en cualquier 
posición de la memoria externa. 


A GENERALES 
A 


[A Registros del microprocesador. 


Características 
'Q de un microprocesador 


Cada una de las instrucciones del pro- 
grama, una vez decodificadas, se ejecu- 
tará, en una serie de pasos elementales, 
cada uno de los cuales se realiza en lo 
que denominamos «ciclo máquina». En 
cada «ciclo máquina» se efectúan dos 
tareas; primeramente se identifica el tipo 
de operación que se pretende realizar 
(ciclo de búsqueda) y después se pasa 


a realizar la operación en cuestión (ciclo 
de ejecución). 

La velocidad del microprocesador 
para realizar una función dependerá de 
la rapidez con que se ejecuten las ins- 
trucciones, es decir, del ciclo máquina, 
que se mide normalmente en unidades 
de frecuencia (hertzios: número de ciclos 
máquina que ocurren en un segundo). 


PROGRAMA 


instrucción y se ejecutan las órdenes 
necesarias. 


' En cada ciclo máquina se identifica la 

Quizá ésta sea la parte de la informáti- 
ca en la que más se ha evolucionado. 
Son grandes las diferencias entre los mi- 
croprocesadores de las primeras y últi- 
mas generaciones, sobre todo en las ca- 
racterísticas de los circuitos que los inte- 
gran: miniaturización, fiabilidad, comple- 
jidad y velocidad. 

En cuanto a la miniaturización, las dife- 
rencias son sorprendentes, de forma que 
las dimensiones milimétricas que pueden 
tener hoy ciertos componentes, hace 
unos años equivaliían al volumen de un 
armario. 

El grado de fiabilidad que ofrecen hoy 
los microprocesadores ha hecho que au- 
mente considerablemente la calidad de 
funcionamiento de la CPU. La «media de 
los tiempos de buen funcionamiento» ha 
pasado de ser de varias decenas de mi- 
nutos en ordenadores de la primera ge- 
neración a varios miles de horas para los 
de la tercera. 

En cuanto a complejidad, los circuitos 
actuales vienen a ser de mil a diez mil ve- 
ces más complejos. 

La velocidad es uno de los puntos más 
destacables; se ha pasado de CPU's ca- 
paces de hacer algunos miles de opera- 
ciones por segundo, en las primeras ge- 
neraciones, a varios millones en los de 
tercera generación. 


COMMODORE 


mM Comandos 
lOgicos 


STOS comandos per- 
miten interrelacionar 
dos valores, el prime- 
ro de los cuales debe 
encontrarse en el 
ACU, mientras que el 
segundo se extrae de 
la memoria según el 
modo direccionamiento. El resultado se 
envía al ACU. 


Interrelación AND 


Se comparan bit a bit el ACU y la posi- 
ción de memoria direccionada, cuando 
los dos contengan un «1», también el bit 
del resultado contendrá un «1». El resto 
de los casos el resultado será «O». 

Si cargamos el ACU con el número $17 
y a continuación el comando AND Pt $35 
es leído por el microprocesador, se efec- 
tuará la siguiente operación 


$17 = %00010111 
$35 = %00110101 


$15 = $00010101 


Con el comando AND podrán alterarse 
los flags Z (Zero) y N (Negativa). Con un 
resultado de «0» se activará el flag Z, y 
con un resultado mayor de 127 ($7f) se 
activará el flag N. 


' Interrelación OR (inclusivo) 


Se relaciona cada bit del ACU con el 
bit correspondiente del operando, y son 
posibles los siguientes resultados: 
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Oo 

O 

JD 
>>> 
A 
id md ld OY) 


En el momento en que uno de los dos 
bits esté a «1», el resultado será 1. 
) La operación del ejemplo anterior se- 
ria: 
$17 = %00010111 
$35 = %00110101 


$37 = %00110111 


Se activarán los flags N y Z dependien- 
do del resultado final. 


'O Interrelación OR (exclusivo) 


Igual que los dos anteriores, compara 
bit a bit el contenido del ACU con el de 
la posición de memoria direccionada, 
pudiendo presentarse los siguientes casos: 


OFORO=0 
O FOR 1 =1 
1 FOR O = 1 
1FOR1=0 


Según el ejemplo propuesto al princi- 
pio de los comandos lógicos, la interre- 
lación se efectuaría de la siguiente ma- 
nera: 


$17 = %00010111 
$35 = %00110101 
$22 = %00100010 


También aquí se alterarán los flags N y Z. 


La siguiente tabla contiene los códigos 
de comando correspondientes a las tres 
interrelaciones lógicas que se han ex- 
puesto. 
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'DO Comando BIT 


Este comando, que incluimos dentro 
del apartado de comandos lógicos, es 
un poco especial y particular de los pro- 
cesadores 65 XX. 

Su acción consiste en efectuar una 
operación lógica AND entre el ACU y la 
posición de memoria direccionada, pero 
sin alterar el contenido de los registros 
que intervienen. 

Si el resultado es cero, el flag Z se acti- 
vará; en caso contrario, se desactivará. 
Además, el sexto bit de la posición de 
memoria direccionada se transfiere al 
flag V, mientras que el séptimo bit se 
transfiere al flag N. 

De esta manera se pueden controlar 
los bits 6 y 7 de una posición de memo- 
ria y tomar decisiones derivadas de su 
consulta sin peligro de destrucción del 
contenido en el registro. 

Existen dos modos de direccionamien- 
to para este comando: 


Zeropage $24 
Absoluto $2C 


'O Comandos de comparación 


Con este grupo de comandos podre- 
mos hacer comparaciones entre el con- 
tenido de los registros del procesador y 
el contenido de posiciones de memoria 
utilizando diferentes modos de direccio- 
namiento. 

No se alteran los contenidos ni de los 
registros ni de las posiciones de memoria 
direccionadas, sino los flags del registro 
de estado, cuya posterior consulta nos 
servirá para la toma de decisiones. 

Existen comandos para los tres registros 
de trabajo del procesador: 


Uivir 
CPX 
CPY 


Comando CMP. Este comando compa- 
ra el contenido del ACU con el de la po- 
sición de memoria direccionada. Para 
ello se sustrae de aquél el contenido de 
esta última. 

Si se ha producido un desbordamiento 
negativo, se desactiva el Carry flag; de 
lo contrario, se activa. Si se obtiene un re- 
sultado de «cero», entonces se activa el 
flag cero, y si el resultado es mayor de 
127, se activa el flag Negative. 

Imaginemos la siguiente secuencia de 
instrucciones: 


LDA 4 $35 
CMP 4 $43 


Al realizar la sustracción $35-43$ se 
obtiene un numero negativo menor que 
cero. Por tanto, tendremos los flags como 
sigue: 


GsU Z=0 N =1 
Probemos ahora otra secuencia dife- 
rente: 


LDA 4 $45 
CMP % $20 


Ahora la sustracción $45-$20 da como 
resultado un número mayor que cero y 
menor de 127 ($7F); por tanto, los flags se 
alterarían de la siguiente forma: 


C=1 Z=0 N=0 


El último caso posible sería cuando el 
ACU y la posición de memoria direccio- 
nada o número (direccionamiento inme- 
diato) poseen el mismo valor. Entonces 
los flags presentarían la configuración si- 
guiente: 


C=1 Z=0 N=0 


Si estudiamos los tres casos detenida- 
mente, observamos que: 


1. El Carry flag se activa para resulta- 
dos mayores o iguales a cero. 

2. El flag Zero se activa si el resultado 
es igual a cero. 

3. El Carry flag se desactiva para un 
resultado menor que cero. 

4. El Carry flag se activa y el flag Zero 
se desactiva si el resultado es mayor que 
cero. 


A continuación se presenta una tabla 
que ayudará cuando se quieran elegir 
los flags a consultar a la hora de tomar 
una decisión que dependa del resultado 
de una de estas comparaciones. 


Comandos CPX y CPY. Análogamente 
a lo que ocurre con el comando CMP, se 
opera con estos dos, con la única dife- 
rencia de que el registro del que se rea- 


liza la sustracción es el registro X o el Y, 
en vez del ACU. 

Para estos comandos, sin embargo, se 
dispone de menos modos de direcciona- 
O que en caso de trabajar con el 

Cu: 
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2 ' 1880 GETAS 
m) Programa: 1900 PRINT CHR$(147) 
Dictador 2830 PRINT CHR$(147) 
T CHR$(147 
L programa Dictador, o dut eS ús 
del cual damos a con- 4450 PRINT CHR$(147) 
tinuación el listado, 4560 PRINT CHR$(147) 
no necesita de ningu- 4860 GETAS 


na explicación, ya 
que todas las que se 
necesitan están inclui- 
das en el programa. 

El programa ha sido realizado en un IBM 
PC bajo GWBASIC, pero puede funcionar 
sin ningún cambio en el MSX Y AMSTRAD. 
Los usuarios del SPECTRUM sólo tienen 
que cambiar todas las líneas donde pon- 
ga END por GOTO 9999. 


Ñ: 111 ES TIT 8 R 
Ll | E mb yr 

DD 11 cc” R 
O iia 


¿QUIERES INSTRUCCIONES? (S/N) 
PULSA *C” PARA CONTINUAR EL JUEGO 


| Instrucciones del programa. 


6 la isla esta 
EN un E 


Ñ Zn mí Ma E A 2 
[A Pantalla de presentación del juego So ES 
Dictador. plot pLa ont sus 
: Euros BOMBÓLTS “por e 
Po «yo can o mjejos cuando diri- 
Para los usuarios de COMMODORE se lo ¿Jajfageo "uy buena cuerte. La vas a ne- 
dan las siguientes variaciones: | PULSA UNA TECLA PARA EMPEZAR 
COMMODORE: E sr 
1170 PRINT CHR$(147) 
1340 GET Z$ 
1400 PRINT CHR$(147) 
1620 GETAS 


1640 PRINT CHR$(147) MM Instrucciones del programa. 


Tienes órrád y ja en el tesoro. 
399 venido al pais 64 tr aji y 


Tienes 26 e tierra E mu vinieron 
Este a An quiere ñ os plantados 


e embrar la fierra te cuesta E 
por Km cuadrado 5 : a 


Pol e cuadrados quieres vender a y la =s “le CN 


la, nto a ie pro e? sntos tus E ds May flo! cSnpse nos lis en el tesoro. 
¿Cuantos Km cuadra uigre ultivar j 194 te re 
(recuerda la mano de o! > Ses. E ¿nes Ro qu E as: 

ste a era e Juiere 


L to, d i lo pue- 
Oti rEO En ASPOnSS ZO eTLg_E o e 


q9apja eu se pre as cuesta 
jcuantos Ku cuadrados suigreo cultivar Bombo! is sie cuadrado 


¡ein e 


€ 
¿fupnias Ky2, cuadrados quieres vender a 


Un momento de la ejecución del programa. 


yA 
AOS OOOO OOO 


E A 


IES 


ISSO SOS lO OOOO lola” S SES JOlOlolOJOK 
X*X*Xkx (Cc) Ed. Siglo Cultural x*xxx 
AXKxk (c) 1987 AGOJOK 
ISSO SSlO SOSA lSS OSORIO lOJOK: 


1170 CLS 
1180 PRINT "ddRHSIRSASlASIS ASAS lafOIOlaloIaK 
E 


1200 PRINT 

1210 PRINT " DDD I1Il CC TTT AA DDD 00 RRR"” ve 
1220 PRIND-" DD TES CAT A ADIDO DO RAR 

1230. PRINT "D DIC Te Ar ¡ADD O 0: Re 

1240 PRINT “" D-D 1: C T AAA D DO O RRR" 

1280 PRINTS <DD> DEE EI EDS DO OR WE" 

1260 PRINT "DDD 1IIl CC T A ADDD 00 R R" 

1270 PRINT 


1280 PRINT " sRASSSISITS lA lSSSISIAITlSSSIOISlSlTlSlSJSIOISIEIOIVIVIOJOR 
1290 PRINT "esalRlRldÓSISISlTElASS SISSI ISO lllIOIOTOK 
1300 PRINT:PRINT:PRINT 
1310 PRINT "(QUIERES INSTRUCCIONES? (S/N)" 

1320 PRINT 

1330 PRINT "PULSA *C” PARA CONTINUAR EL JUEGO" 
1340 LET Z$=-INKEY$ 

1350 LET N5=INT(RND(1)*x4)+4 

1360 IF Z$="" THEN 1340 

1370 IF Z$="N" OR Z$="n” THEN GOTO 1830 

1380 IF Z$="C" OR Z$="c" THEN GOTO 4560 

1390 IF Z$<>"S" AND Z$<>"s" THEN GOTO 1340 
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1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 


2010 
2020 
2030 
2040 
2050 
2060 
2070 


== INSTRUCCIONES ==========<==" 


PRINT " Enhorabuena !!!!!" 
PRINT " Acabas de ser elegido presidente de BO" 
PRINT "TORUTO, una pequena isla comunista del" 


PRINT "pacifico de 30 por 70 Kilometros." 

PRINT " Tu trabajo es decidir el destino del pa" 
PRINT "is y distribuir el dinero del tesoro co-" 
PRINT "munal entre tus conciudadanos." 

PRINT " La moneda del pais es el BOMBOLI y cada" 
PRINT "persona necesita al menos 100 BOMBOLIS” 
PRINT "para poder sobrevivir." 

PRINT " Los ingresos del pais proceden de la u-" 
PRINT "tilizacion y produccion de las granjas y" 
PRINT "de las visitas de los turistas a tus mag" 
PRINT "nificos bosques para disfrutar de la ca-" 
PRINT "za y de la pesca. " 

PRINT:PRINT 

PRINT "PULSA UNA TECLA" 

LET A$=INKEYS$ 

IF A$="" THEN GOTO 1620 

CLS 

PRINTER A 
PRINTS issssezs INSTRNSCCOTONES. =s==s=Se=i=ies o" 
PRENT: "Sir 
PRINT 

PRINT " La mitad de la tierra de la isla esta" 
PRINT "ocupada por granjas que tienen un exce-" 
PRINT "lente contenido en minerales y que mere-" 
PRINT "ceria la pena utilizar. Si quieres ha-" 
PRINT "cerlo puedes vender parte de las tierras" 
PRINT "a la industria extrangera (siderometalur" 
PRINT "gia) para que las explote. La industria" 
PRINT "extrangera importa y mantiene a sus pro-" 
PRINT "pios trabajadores. " 

PRINT " Tambien puedes sembrar la tierra. Hacer" 
PRINT "lo cuesta entre 10 y 15 BOMBOLIS por Ki-" 
PRINT "lometro cuadrado. " 

PRINT " Habras culminado tu mision cuando diri-" 
PRINT "jas este pais durante";N5;"anos." 

PRINT 

PRINT " Te deseo muy buena suerte. La vas a ne-" 
PRINT "cesitar." 

PRINT 

PRINT "PULSA UNA TECLA PARA EMPEZAR" 

LET A$=INKEY$ 

IF A$="" THEN GOTO 1880 

CLS 

LET A=INT(80000! +(1000*xRND(1))-(1000*xRND(1))) 
LET B=INT(400+(10X*RND(1))-(10X*xRND(1))) 

LET D=2000 

LET W=INT(10XRND(1)+95) 

PRINT 

PRINT "Tienes";A;"Bombolis en el tesoro. " 

PRINT "Hay"; INT(B);" campesinos y" 

LET V9=INT(((RND(1)/2)*10+10)) 

IF C=0 THEN GOTO 2010 

PRINT INT(C);" trabajadores extranjeros. " 

PRINT "Tienes"; INT(D);"Km cuadrados de tierra." 
PRINT "Este ano la ¡industria extrangera quiere" 
PRINT "compar la tierra a";W;"Bombolis por" 
PRINT "Km cuadrada. " 

PRINT "Trabajar y sembrar la tierra te cuesta" 
PRINT V9;"Bombolis por Km cuadrado. " 

PRINT 


2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2680 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 


PRINT "(Cuantas Kms cuadrados quieres vender a la industria"; 


INPUT H 

IF H<O THEN GOTO 2080 

IF H<D-1000 THEN GOTO 2240 

PRINT 

PRINT "Piensatelo mejor. solo tienes”;D-1000 
PRINT 

IF X<>0 THEN GOTO 2080 

PRINT 

PRINT "La industria extranjera solo comprara" 
PRINT "tierra de cultivo porque los bosques" 
PRINT "no son rentables para hacer minas de-" 
PRINT "bido a los arboles y a las piedas. " 
PRINT 

LET X=1 

GOTO 2080 

D=INT(D-H) 

A=INT(A+(HxXxW) >) 

PRINT "(Cuanto dinero distribuyes entre tus" 
PRINT "ciudadanos para poder vivir"; 
INPUT I 

IF I<O THEN GOTO 2260 

IF I<A THEN GOTO 2410 

IF I=A THEN GOTO 2370 

PRINT 

PRINT "Intentalo de nuevo. Solo tienes";A 
PRINT "Bombolis en el tesoro." 

PRINT 

GOTO 2260 

LET J=0 

LET K=0 

LET A=0 

GOTO 2910 

LET A=INT(A-1) 

PRINT "(Cuantos Km cuadrados quieres cultivar" 
PRINT "(recuerda la mano de obra)"; 

INPUT J 

IF J<0O THEN GOTO 2420 

IF J<=Bx*2 THEN GOTO 2520 

PRINT 

PRINT "Lo siento, pero cada campesino solo pue-" 
PRINT "des cultivar 2 Km cuadrados de tierra." 
PRINT 

GOTO 2420 

IF J<=D-1000 THEN GOTO 2580 

PRINT 

PRINT "Lo siento, pero solo tienes”;D-1000 
PRINT "Km cuadrados de tierras de cultivo." 
PRINT 

GOTO 2420 ? 

LET Ul=INT(JxV9) 

IF U1<A THEN GOTO 2690 

IF Ul1=A THEN GOTO 2660 

PRINT 

PRINT "No puedes, solo te quedan"; A; "Bombolis” 
PRINT "en el tesoro." 

PRINT 

GOTO 2420 

LET K=0 

LET A=0 

GOTO 2910 

LET A=A-U1 

PRINT "(Cuantos Bombolis vas a ¡invertir en el” 
PRINT "control de contaminacion"; 

INPUT K 

IF K<0O THEN 2700 

IF K<=A THEN 2910 

PRINT 
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2760 PRINT "Piensalo mejor. Solo tienes";A;"Bombolis. " 
2770. PRINT 

2780 GOTO 2700 

2790 IF H<>0 THEN GOTO 2920 

2800 IF I<>0 THEN GOTO 2920 

2810 IF J<>0 THEN GOTO 2920 

2820 IF K<>0 THEN GOTO 2920 

2830 CLS * 

2840 PRINT "Adios. Espero verte pronto. ” 

2850 PRINT:PRINT 

2860 PRINT "Si otro dia quieres continuar con el jue" 
2870 PRINT "go, pulsa la letra *C” en la pantalla de" 
2880 PRINT "presentacion. Entonces te hare algunas” 
2890 'PRINT "preguntas respecto a tu posicion actual." 
2900 END 

2910 GOTO 2790 

2920 CLS 

2930 LET A=INT(A-K) 

2940 LET Al=A 

2950 IF INT(I/100-B)>=0 THEN GOTO 2980 

2960 IF 1/100<50 THEN GOTO 4250 

2970 PRINT "Han muerto de hambre"; INT(B-(1/100));"ciudadanos" 
2980 LET Fi=INT(RND(1)x*x(2000-D)) 

2990 IF K<25 THEN GOTO 3010 

3000 LET F1=INT(F1/(K/25)) 

3010 IF Fi<=0 THEN GOTO 3050 

3020 PRINT "Han muerto";F1;"ciudadanos de" 

3030 PRINT "inhalacion de monoxido de carbono" 

3040 PRINT "y de polvo." 

3050 IF INT((1/100)-B)<0 THEN GOTO 3080 

3060 IF Fi>0 THEN GOTO 3130 

3070 GOTO 3240 

3080 PRINT "Estas obligado a gastar”; INT((F1+(B-(1/100)))x*x9) 
3090 PRINT "Bombolis por gastos de funerales. " 

3100 LET B5=INT(F1+(B-(1/100))) 

3110 LET A=INT(A-((F1+(B-(1/100)))*9)) 

3120 GOTO 3170 

3130 PRINT "Te han obligado a gastar"; INT(F1x9) 

3140 PRINT "Bombolis por gastos de funerales." ”* 

3150 LET B5=F1 

3160 LET A=INT(A-(F1x9)) 

3170 IF A>=0 THEN GOTO 3230 

3180 PRINT "No tienes reservas suficientes para" 

3190 PRINT "cubrir el coste. Las tierras han te-" 
3200 PRINT "nido que ser vendidas." 

3210 LET D=INT(D+(A/W)) 

3220 LET A=0 

3230 LET B=INT(B-B5) 

3240 IF H=0 THEN GOTO 3290 

3250 LET C1=INT(H+(RND(1)*10)-(RND(1)*x20)) 

3260 IF C>0 THEN GOTO 3280 

3270 C1=C1+20 

3280 PRINT "Han venido al pais";C1; "trabajadores y" 
3290 LET P1=INT((((1/100-B)/10)+(K/15)-((2300-D)/50)-(F1/2))/2) 
3300 PRINT ABS(P1);"campesinos "; 

3310 IF P1<0 THEN GOTO 3340 

3320 PRINT "vinieron"; 

3330 GOTO 3350 

3340 PRINT "abandonaron"; 

3350 PRINT " la isla." 

3360 LET B=INT(B+P1) 

3370 LET C=INT(C+C1) 

3380 LET U2=INT(((2000-D)*((RND(1)+1.5)/2))) 

3390 IF C=0 THEN GOTO 3410 

3400 PRINT "de"; INT(J);"Km cuadrados plantados" 

3410 IF J>U2 THEN LET U2=INT(U2/2):GOTO 3430 

3420 LET U2=J 

3430 PRINT "has arruinado"; INT(J-U2);"Km cuadrados de siembra. " 


3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 


IF U2=0 THEN GOTO 3500 

IF T1>=2 THEN GOTO 3500 

PRINT "(Debido a”; 

IF Ti=0 THEN GOTO 3490 

PRINT "1 incremento de”; 

PRINT " la polucion)" 

Q=INT((J-U2)*x(W/2)) 

PRINT "y has ganado"; INT(Q);"Bombolis. " 

LET A=INT(A+Q) 

LET V1=INT(((B-P1)*22)+(RND(1)*500)) 

LET V2=INT((2000-D)x*15) 

PRINT "Has sacado"; ABS(INT(V1-V2));"Bombolis" 
PRINT "por las visitas de los turistas. " 

IF V2=0 THEN GOTO 3660 

IF V1-V2>=VY3 THEN GOTO 3660 

PRINT "El descenso de debe a que" 

LET G1=10X*RND(1) 

IF G1i<=2 THEN GOTO 3690 

IF G1<=4 THEN GOTO 3720 

IF Gi<=6 THEN GOTO 3750 

IF Gi<=8 THEN GOTO 3780 

IF G1<=10 THEN 3810 

LET V3=INT(A+V3) 

LET A=INT(A+V3) 

GOTO 3830 

PRINT "la pesca ha disminuido porque el” 
PRINT "agua esta contaminada. " 

GOTO 3660 

PRINT "la polucion del aire esta matando a" 
PRINT "las aves .y no hay caza." 

GOTO 3660 

PRINT "los banos medicinales estan siendo” 
PRINT "arruinados por la polucion del agua." 
GOTO 3660 

PRINT "un desagradable humo esta estropeando" 
PRINT "los banos de sol a los turistas." 

GOTO 3660 

PRINT "Los hoteles estan sucios por el humo. " 
GOTO 3660 

IF B5>200 THEN GOTO 4080 

IF B<343 THEN GOTO 4250 

IF (A4/100)>5 THEN GOTO 4320 

IF C>B THEN GOTO 3890 

IF N5-1=X5 THEN 4450 

GOTO 4810 

PRINT 

PRINT 

PRINT "El numero de trabajadores extrangeros" 
PRINT "ha excedido al numero de la gente del” 
PRINT "propio pais. Como mayoria que son, se” 
PRINT "han rebelado y han tomado el pais." 

IF RND(1)<=.5 THEN GOTO 4010 

PRINT "Te han expulsado de la oficina y ahora" 
PRINT "estas viviendo en la carcel. De todas” 
PRINT "maneras no te quejes. Otros han acaba-" 
PRINT "do muertos. " 

GOTO 4850 

PRINT "Te han asesinado. Lo siento, pero tu ya” 
PRINT "no sientes nada. " 

PRINT 

PRINT "PULSA UNA TECLA" 

LET A$=INKEY$ 

IF A$="" THEN GOTO 4050 

GOTO 2830 

PRINT 

PRINT 

PRINT B5;"conciudadanos tuyos han muerto en" 
PRINT "un solo ano (que exceso). Debido a este" 


NA 
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4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 


PRINT "fracaso tan estrepitoso, no solo te han" 
PRINT "derrocado y expulsado de tu oficina sino” 
PRINT "que ademas, y para mas inri, te han " 
LET M6=INT(RND(1)x10) 

IF M6<=3 THEN GOTO 4190 

IF M6<=6 THEN GOTO 4210 

IF_M6<=10 THEN GOTO 4230 

PRINT "sacado el ojo izquierdo a bocados. "” 
GOTO 4020 

PRINT "declarado fraude nacional." 

GOTO 4020 

PRINT "te han hechado a los perros." 

GOTO 4020 

PRINT 

PRINT , 

PRINT "Alrededor de la mitad de la poblacion" 
PRINT "ha muerto desde que tu fuiste elegido" 


PRINT "La gente (que queda) te odia (aunque” 
PRINT "no mucho. No tienen fuerzas). ”" 

GOTO 3950 

IF B5-Fi<2 THEN GOTO 3860 

PRINT 

PRINT "Quedo algun dinero del tesoro que tu” 


PRINT "no gastaste. Por ello algunos (mas de" 
PRINT "uno) de tus conciudadanos murieron" 
PRINT "de hambre. El pueblo esta indignado y" 
PRINT "tu estas obligado a dimitir o suicidar-" 
PRINT "te (como tu quieras). " 

PRINT "La eleccion es tuya" 

PRINT "si eliges lo ultimo, por favor apaga el” 
PRINT "ordenador antes de hacerlo y no me ensu-" 
PRINT "cies mucho. Gracias. " 

GOTO 4030 

CLS 

PRINT “FELICIDADES !!!!" 

PRINT 

PRINT "Has completado con exito tu";N5 

PRINT "ano en el poder." 

PRINT "Has tenido mucha suerte, pero" 

PRINT "sin embargo, se puede decir que" 


PRINT "has realizado un buen trabajo. " 
PRINT "Salud y suerte (probablemente la" 
PRINT "necesitaras)." 

GOTO 4030 

CLS 

PRINT "Cuantos anos estubiste en el poder" 


PRINT "hasta que te derrocaron"; 

INPUT X5 

IF X5<0 THEN 2830 

IF X5<9 THEN 4640 

PRINT "Venga. Te crees que soy tonto" 
GOTO 4570 

PRINT "Cuanto dinero tenias”; 

INPUT A 

IF A<O THEN 2830 

PRINT "Cuantos ciudadanos"; 

INPUT B 

IF B<0O THEN 2830 

PRINT "Cuantos trabajadores"; 

INPUT C 

IF C<O THEN 2830 

PRINT "Cuantas Km cuadrados de tierra"; 
INPUT D 

IF D<O THEN 4020 

IF D>2000 THEN 4780 

IF D>1000 THEN 1940 

PRINT "Venga, empezaste con 1000 Km cuadrados" 
PRINT "de cultivo y 1000 Km cuadrados de bosque. 


4800 GOTO 4730 

4810 X5=X5+1 

4820 B5=0 

4830 GOTO 1940 

4840 END 

4850 PRINT "PULSA UNA TECLA" 
4860 LET A$=INKEY$ 

4870 IF A$="" THEN GOTO 4870 
4880 GOTO 2830 
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OD Generador de SPRITES 
/ para COMMODORE 


El programa que se propone a conti- 
nuación nos permitirá definir nuestros 
propios SPRITES en el COMMODORE para 
utilizarlos más tarde en nuestros progra- 
mas. Dichos SPRITES pueden ser almace- 
nados en cinta para que los utilicemos 
más tarde o para que los modifiquemos 
cuando queramos. 

El programa es bastante autoexplicati- 
vo y está lleno de menús para hacer más 
sencillo su uso al usuario. 


Entre las funciones que tiene el progra- 
ma podemos resaltar: 


— Rotación a la derecha. 
— Rotación a la izquierda. 
— Espejo vertical. 

— Espejo horizontal. 

— Ampliación en X. 

— Ampliación en Y. 


El programa está preparado para defi- 
nir un solo SPRITE cada vez, por lo que se 
recomienda que, tras su definición, se 
guarde dicho SPRITE en una cinta de ca- 
sete mediante el comando SAVE. 


1000 RÉM atalolalalolola lalalala lalalalalalalalalalalalolalalalololajoK 
1010 REM * GENERADOR DE SPRITES PARA COMMODORE x* 
REM alla lalalV llo lala lalola lalalala lalo jojojojolojok 


REM 

REM aaoSSlOlOlololdlolalojojojojok 
REM * INICIALIZACION * 
REM aoSoSSOSlSlOlOlOlOlOlOIOJOJOK 
REM 

POKE 53280!,1 

POKE 53281!,1 


POKE 650, 128 

LET BA=704 

LET V=53248! 

LET X=0 

LET Y=0 

FOR I=BA TO BA+62 


1230 POKE 2040, 11 
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1240 POKE V+21,1 

1250 PRINT CHR$(147);CHR$(145);CHR$(111); 
1260 FOR I=1 TO 24 

1970 PRHINT COR$(163); 

1280 NEXT 1 

1290 PRINT CHR$(112);CHR$(145) ;CHR$(145);CHR$(29); "SPRITE"; 
1300 PRINT CHR$(19);CHR$(145);CHR$(145); 
1310 FOR I=1 TO 20 

1320  PRINT CHR$(116);SPC(24);CHR$(167) 
1330 NEXT 1 

1340 PRINT CHR$(108); 

1350 FOR I=1 TO 24 

1360  PRINT CHR$(114); 

1370 NEXT 1 

1380 PRINT CHR$(186);CHR$(17);" C=BORRA. ”; 
1390 FOR I=-1 TO 8 

1400  PRINT CHR$(157); 

1410 NEXT 1 

1420 PRINT "H=AYUDA. " 

1430 GOSUB 2030 

1440 LET SP3="" 

1450 FOR I=1 TO 26 

1480  LET SP$=SP$+" " 

1470 NEXT 1 

1480 REM 

1490 REM adaldlOlRSldlOlalOlO lO lalalolalololajojkok 

1500 REM * PROGRAMA PRINCIPAL x* 

1510 REM ddadalOlOlOlOjdlolalajololalajololalakok 

1520 REM 

1530 GET A$ 

1540 IF A$="" THEN GOTO 1530 

1550 IF A$="H" THEN GOTO 1740 

1560 LET SU=ASC(A$) 

1570 IF SU=32 THEN GOSUB 2330 

1580 IF SU=67 THEN RUN 

1590 LET T1=1105+Y*40+X 

1800 IF PEEK(T1)=209 THEN POKE T1,S1:GOTO 1620 
1610 POKE T1, 46 

1620 LET X=X-(SU=80)+(SU=79) 

1630 LET Y=Y-(SU=85)+(SU=81) 

1640 LET X=X+Xx*(X>23)-24*(X<0) 

1650 LET Y<Y+Y*(Y>20)-21x(Y<0) 

1660 GOSUB 2220 

1670 IF SU<133 THEN GOTO 1530 


1680 PRINT CHR$(19);CHR$(31);CHR$(18);" EJECUTANDO OPCION ";CHR$(146) 
1690 IF SU>132 AND SU<141 THEN ON SU-132 GOSUB 2440, 2800, 3260, 3620, 2620, 2940, 343 
0, 3700 


1700 PRINT CHR$(19);SP$ 

1710 GOTO 1530 

1720 REM 

1730 REM aaalalalalalalaloololOjolOlololololak 
1740 REM * PANTALLA DE AYUDA x* 
1750 REM aaa OlOlMlOlOlOllololololak 
1760 REM 

1770 RESTORE 

1780 PRINT CHR$(19); 

1790 READ A$ 

1800 IF A$="x*x" THEN GOTO 1830 
1810 PRINT A$;LEFT$(SP$, 26-LEN(A$)) 
1820 GOTO 1790 

1830 GET A$ 

1840 IF A$="" THEN GOTO 1830 

1850 GOTO 1250 

1860 DATA " ---—PANTALLA DE AYUDA---" 
1870 DATA "" 

1880 DATA "COMANDOS: " 

1890 DATA "F1-ROTACION DERECHA" 
1900 DATA "F2-ROTACION IZQUIERDA" 


1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
STOP 
REM 


"F3-ESPEJO VERTICAL" 
"F4-ESPEJO HORIZONTAL" 
"F5-SAVE" 

"F6-LOAD" 

"F7-AMPLIACION X ON/OFF" 
"F8-AMPLIACION Y ON/OFF" 
"  ---PULSE UNA TECLA---" 
"o 


IAN EEES 


REM * ESCRITURA DE PARRILLA *x 
NS 


REM 


PRINT CHR$(19);CHR$(145); CHR$(145); 


FOR I=BA TO BA+62 STEP 3 
PRINT CHR$(29); 
FOR G=0 TO 2 


LET T=128 
LET T1=PEEK(1+G) 
FOR N=7 TO O STEP -1 


IF T AND T1 THEN PRINT CHR$(113);:GOTO 2150 


PRINT 07 
LET T=T/2 
NEXT N 


NEXT G 
PRINT 


NEXT 
REM 
REM 
REM 
REM 
REM 


E 


AMOO OOOO OOOO OOOO OOOO JOK 


*k ESCRITURA DEL CURSOR * 
SISSI SOS lSIOSSIOlS O IOIOJOJOK 


LET T1=PEEK(BA+Yx3+INT(X/8)) 
LET T=1105+X+40x*Y 


LET T2=2”(7-(X AND 7)) 

IF T2 AND Ti THEN POKE T,209: RETURN 
POKE T,174 

RETURN 

REM 

REM aMSN ISIOIOITOJOIOJOK 

REM * CAMBIO DEL CURSOR * 

REM oO IS lSISSS SIS lAJSIOIOIlJOJOJOK 

REM 


LET T1=BA+Y*3+INT(X/8) 
LET T2=PEEK(T1) 
LET T3=2”*(7-(X AND 7)) 


IF T2 AND T3 THEN POKE T1,T2 AND (255-T3): RETURN 


POKE 


T1,T2 OR T3 


RETURN 


REM 


IAN EEES 


REM * ROTACION DERECHA * 
REM ao dll lok 


REM 


FOR 1 


=BA TO BA+62 STEP 3 


LET T1=INT(PEEK(I1)/128) 
FOR G=1+2 TO I STEP -1 


LET T=PEEK(G) 

LET T=Tx2+T1 

LET Ti=INT(T/256) 
LET T=T AND 255 
POKE G, T 


NEXT G 

POKE 1+2,T1 OR PEEK(I+2) 
2570 NEXT 1 y 

2580 GOSUB 2030 


20 PROGRAMAS 


2590 RETURN 

2600 REM 

2610 REM ssAMSSSS SISSI lASISIOIOJOJKK 
2620 REM * ROTACION IZQUIERDA * 
2630 REM SSI SSISIOIOJOJOKK 
2640 REM 

2650 FOR I=BA TO BA+62 STEP 3 

2660 LET T1=128x(PEEK(I+2) AND 1) 
2670 FOR G=1I TO I+2 


2680 LET T=PEEK(G) 

2690 LET T2=128*(T AND 1) 
2700 LET T=INT(T/2)+T1 
2710 LET Ti=T2 

2720 POKE G, T 


2730 NEXT G 

2740 POKE 1,T1i OR PEEK(I) 
2750 NEXT I 

2760 GOSUB 2030 

2770 RETURN 

2780 REM 

2790 REM so SSlOlO OOOO OO ROKK ok 
2800 REM * ESPEJO VERTICAL * 
2810 REM SSA ISSO OSO OHOJOHOJOK 
2820 REM 

2830 FOR I=BA TO BA+2 

2840 FOR G=0 TO 30 STEP 3 
2850 LET T=PEEK(G+I) 
2860 POKE G+I,PEEK(1+60-G) 
2870 POKE I1+60-G, T 

2880 NEXT G 

2890 NEXT I 

2900 GOSUB. 2030 

2910 RETURN 

2920 REM 

2930 REM XAO SIOIOIIOJMIOJOJOJOJK 
2940 REM * ESPEJO HORIZONTAL *x 
2950 REM sSSS SSA lSISIOISISIOIOIOOTO OK 
2960 REM 

2970 FOR I=BA TO BA+62 STEP 3 
2980 LET T$="" 

2990 FOR G=I TO I+2 


3000 LET T=PEEK(G) 

3010 LET T1=-128 

3020 FOR N=0 TO 7 

3030 IF (T AND T1) THEN LET T$=T$+"1":GOTO 3050 
3040 LET T$=T$+"0" 

3050 LET T1=T1/2 

3060 NEXT N 


3070 NEXT G 

3080 LET C$="" 

3090 FOR G=12 TO 1 STEP -1 

3100 LET C$=MID$(T$, 24-G, 1)+C3$+MID$(T$,G,1) 
3110 NEXT G 

3120 FOR G=1 TO 24 STEP 8 


3130 LET T=128 

3140 LET T1=0 

3150 FOR N=0 TO 7 

3160 LET T1=T1+TXVAL(MID$(C$,G+N, 1)) 
3170 LET T=T/2 

3180 NEXT N 

3190 POKE I+INT(G/8),T1 
3200 NEXT G 

3210 NEXT 1 

3220 GOSUB 2030 

3230 RETURN 

3240 REM 


3250 REM oooO 
3260 REM * SAVE *x 


REM ooololOloKk 


REM 
PRINT CHR$(19);SP$;CHR$(19); 
INPUT "NOMBRE = ";N$ 


IF LEN(N$)>10 OR N$="" THEN GOTO 3290 
PRINT CHR$(19); "PULSE UNA TECLA PASA SAVE" 
GET A$ 
IF A$="" THEN GOTO 3330 
OPEN 1,1,1,N$ 
FOR I=BA TO BA+62 

PRINT $1, PEEK(I) 
NEXT I 
CLOSE 1 
RETURN 
REM 
REM datolOlOlOKOKk 
REM * LOAD x 
REM dstSOlOlOlOKK 


REM 
PRINT CHR$(19);SP$;CHR$(19); 
INPUT "NOMBRE = ";N$ 


IF LEN(N$)>10 OR N$="" THEN GOTO 3660 
PRINT CHR$(19);"PULSE UNA TECLA PARA LOAD" 
GET A$ 
IF A$="" THEN GOTO 3500 
OPEN 1,1,0,N$ 
FOR I=0 TO 62 

INPUT $1,A 

POKE BA+I,A 
NEXT I 
CLOSE 1 
GOSUB 2030 
RETURN 
REM 
REM SS SSS SIS IS SSI SjO OSOS lSIOSIOJOROK 
REM * AMPLIACION EN X ON/OFF x 
REM SOS SOS S ISSO SIS IOISJSIOIOJOK 
REM 
IF PEEK(V+29)=1 THEN POKE V+29,0: RETURN 
POKE V+29,1 
RETURN 
REM 
REM ASOMO SOS OJOS lOSOlOJOJOJOKOK 
REM * AMPLIACION EN Y ON/OFF x* 
REM RSS SMS SSI S SOS lSlOSSIOlSSJORAK 
REM 
IF PEEK(V+23)=1 THEN POKE V+23,0: RETURN 
POKE V+23,1 
RETURN 


AY que evitar el tener 
que dar dos «pasa- 
das» de impresión a 
un mismo documen- 
to, por las dificulta- 
des de ajuste que sur- 
gen y los errores que 
se pueden introducir. 
Estas dificultades llegan a ser casi insal- 
vables si se imprime una misma hoja en 
papel continuo por ambas caras: piénse- 
se en el caso de que un conjunto de re- 
cibos, por ejemplo, se deba imprimir por 
delante y por detrás y en la secuencia 
que ha de seguir el ordenador aparece 
alguna diferencia entre la primera y la 
segunda «pasada»: a partir del punto en 
que se produzca este error, ya no coinci- 
den en todo el resto del proceso los da- 
tos impresos por el anverso con los del re- 
verso. 

f) Es útil tener en cuenta las diversas 
manipulaciones o falsificaciones a que 
puede estar sometido un documento. 
Esto es especialmente importante cuan- 
do en el impreso aparecen datos delica- 
dos, confidenciales o referentes a dine- 
ro: algunos documentos impresos por or- 
denador, en ocasiones, «dan fe» o sirven 
directamente como «instrumentos de 
pago». Para ello, hay que marcar las can- 
tidades antes y después de las cifras sig- 
nificativas con asteriscos u otros signos, 
sin dejar espacios en blanco. En ocasio- 
nes, sobre todo si se trata de cantidades, 
es usual repetir los valores en letra y en 
número. Si se está utilizando un papel 
preimpreso, se suelen prever espacios 
con fondos especiales («aguas» o «ana- 
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DOCUMENTOS DE SALIDA 


gramas») para evitar que sean borrados 
o corregidos los datos escritos por la im- 
presora. 


g) En ocasiones es muy útil diseñar ho- 
jas laterales, «faldones» o «volantes» en 
los preimpresos. Además de la utilidad 
de control de informaciones a que he- 
mos aludido anteriormente, se pueden 
utilizar como resguardos de los datos, 
como resumen que sirva de «recordato- 
rio», como hoja de respuestas a rellenar 
contestando a las informaciones que se 
imprimen en el documento, etc. Hay que 
evaluar, sin embargo, el coste que la im- 
presión de estos papeles especiales 
puede suponer respecto de la otra op- 
ción (sin preimpreso o con él) consisten- 
te en escribir varias veces los mismos da- 
tos o en preparar varios documentos di- 
ferentes (para diferentes usos) a partir de 
los mismos datos. 

En general, se puede decir que suelen 
ser de tres tipos, básicamente, los «im- 
presos adicionales» que se suelen dise- 
ñar: 


— Como hoja posterior o parcial. En 
ocasiones se prepara el papel de calco 
o substancia «autocopiativa» de tal 
modo que en la «hoja posterior» sólo se 
escriban parte de los datos que apare- 
cen en la primera hoja. A veces, esta 
«hoja posterior» sólo ocupa parte de la 
hoja principal, si el impreso está diseña- 
do para que los datos de la hoja poste- 
rior estén en una zona limitada: hay que 
tener cuidado, en este caso, que el tipo 
y grosor del papel aseguren el perfecto 
paso del preimpreso por la impresora. 


Hoja posterior 


—— 


| 
Documento principal 


Preimpreso con hoja posterior. 


— Como hoja separable. Se puede 
hacer un «trepado» en el papel para que 
la parte de la hoja preimpresa pueda ser 
arrancada o separada del resto del do- 
cumento. Las partes separables se pue- 
den poner a la derecha de la parte prin- 
cipal del documento si esta parte princi- 
pal va a ser utilizada como papel en zig- 
zag, o bien en la parte inferior, si el con- 
junto del documento va a ser manipula- 
do para separar sus hojas. (Ver figura in- 
ferior.) 


Partes 


RELACION DE separables 


DATOS 


CIBO 


e. 


bosco. 


:COMPRO- 
¡BANTE 


RELACION DE DATOS 


RECIBO  : COMPROBANTE 


Partes separables 


[A Dos tipos de preimpreso con «partes sepa- 
rables». 


— Con copias parciales separables. 
En ocasiones estos documentos separa- 
bles se ponen como una pequeña hoja 
posterior con papel de calco interpues- 
to o fabricados de papel «autocopiati- 
vo». Se suele acudir a esta solución si el 
contenido del documento no permite 
«perder» parte de la superficie utilizable 
y poner hojas laterales (con datos repe- 
tidos) para ser arrancadas. En la figura 
que sigue se muestra la disposición usual 
de estos «volantes» separables. 


«Volante» 
separable 
— — 


A Preimpreso con «volante» separable. 


=». 


h) Es conveniente, por último, insistir 
en la importancia de evaluar los costes 
cuando se está diseñando un documen- 
to de salida. Ante todo, hay que decidir 
si se prepara un papel especial preim- 
preso o se utiliza papel zig-zag (papel 
«pijama»: hemos comentado los proble- 
mas de amortización del papel, de 
stocks, etc., que conlleva. Por otro lado, 
y dentro de los primeros, es importante 
evaluar las variantes posibles (las empre- 
sas de fabricación de papel y las impren- 
tas se encargan de que sean muchísi- 
mas): con o sin copia, con faldones late- 
rales o volantes, etc. 

Además es un factor de importancia el 
tiempo de impresión, porque la impreso- 
ra y el ordenador son caros de utilizar. 

Hay que elegir incluso, el tipo de papel 
en función de su utilización y del coste. 

Nunca se insistirá suficiente en la nece- 
sidad de que el analista tenga en cuen- 
ta en sus diseños los elementos externos 
al «proceso de datos» propiamente di.- 
cho: desde el usuario que va a recibir y 
utilizar el documento hasta las condicio- 
nes impuestas por los papeles a utilizar. 


| 
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a Instrucciones 
==" en bucle 
(continuación) 


N el lenguaje PASCAL 
existe también la ins- 
trucción MIENTRAS, 
que tiene una estruc- 
tura muy semejante a 
la correspondiente 
instrucción BASIC: 


WHILE condición DO instrucción; 


donde «instrucción» puede ser de cual- 
quier tipo: una asignación, un bloque se- 
cuencial, una instrucción condicional o 
un nuevo bucle. Veamos, como ejemplo, 
cómo se escribe en PASCAL el programa 
que ordena varios números que vimos en 
el capítulo anterior en su versión BASIC. 


program ordenar; 
var 
x:boolean; 
y:real; 
a:array[1..31] of real; 
begin 
readin (al11, al21, al3]); 
xsi=true; 
while x do begin 
x:=false; 
if alil>al21] then begin 
y:=al2]; 
al21:=a[1J; 
alil:=y; 
x:i=true; 


end; 
if al21>a[3] then begin 
y:=al31; 
al3l:=a[2]; 
al21l:=y; 
xsi=truej; 
end 
end; 
witeln (al11,* ”,al21,* ”?”,ar31) 
end. 


Observemos algunas diferencias con el 
mismo programa escrito en BASIC: en pri- 
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mer lugar, utilizamos como variable de 
control del bucle una variable de tipo 
booleano (lógico), que es apropiado 
usar en esta situación. Estas variables 
pueden definirse en PASCAL, pero no en 
BASIC, donde tuvimos que recurrir al tru- 
co de que la variable pudiera valer úni- 
camente cero o uno. 

La segunda diferencia importante es 
que en BASIC pueden colocarse varias 
instrucciones entre las palabras reserva- 
das WHILE y WHEN, mientras en PASCAL 
sólo puede haber (en principio) una ins- 
trucción en el bucle WHILE. Sin embargo, 
utilizando las palabras reservadas BEGIN 
y END podemos incluir también más de 
una instrucción dentro del bucle, pues 
de hecho estamos haciendo uso de un 
bloque de instrucciones. 

El organigrama de este programa PAS- 
CAL es casi idéntico al del programa BA- 
SIC equivalente: 


En cuanto a su ejecución, también es 
muy parecida: 


El lenguaje APL no tiene palabras reser- 
vadas y carece, por consiguiente, de ins- 
trucciones específicas de bucle. Esto no 
quiere decir que no puedan realizarse 
bucles de instrucciones. Sin embargo, és- 
tos se construyen por medio de las ins- 
trucciones de transferencia condicional, 
que veremos más adelante. En un capí- 
tulo próximo, por tanto, veremos cómo 
pueden simularse en APL las diversas for- 
mas de la instrucción de bucle que vere- 
mos a lo largo de este capítulo y los suce- 
sivos. 

Por otra parte, APL es un lenguaje mu- 
cho más potente que cualquiera de los 
demás, por lo que muchas veces es inne- 
cesario construir bucles de instrucciones, 
pues el algoritmo a realizar puede efec- 
tuarse en una sola operación. Este es el 
caso, precisamente, en el ejemplo que 
aquí estamos siguiendo (la ordenación 
de menor a mayor de tres números) que 
en APL se realiza así: 


[0] ORDENAR 
(13 A+0 
EI EL AA 


donde la instrucción número 0 define el 
nombre del programa (ORDENAR, en este 
caso), la primera instrucción lee del te- 
clado los valores a ordenar y se los asig- 
na a la variable A, y la segunda instruc- 
ción los pone en orden de menor a ma- 
yor y los escribe en la pantalla. En efec- 
to, la operación representada por un 
triángulo cruzado por una barra vertical 
representa una operación APL que obtie- 
ne los índices de los elementos de A en 
orden ascendente. Basta, por tanto, con 
indexar A por dichos índices para poner 
los elementos de A en orden ascenden- 
te, que es lo que queríamos conseguir, 
sin necesidad de utilizar bucle alguno. 
Además, cuando en APL una instrucción 
realiza una operación, pero no le asigna 
el resultado a ninguna variable, el resul- 
tado aparece automáticamente en la 
pantalla, por lo que no es necesario aña- 
dir una instrucción de escritura al final del 
programa, como en los casos de BASIC y 
PASCAL. 

Veamos cómo se ejecutan en APL los 
ejemplos anteriores: 


ORDENAR 


3 et 


2 TECNICAS DE PROGRAMACIÓN 


El organigrama del programa anterior 
es mucho más sencillo, como es natural, 
que los de las versiones BASIC y PASCAL: 


Existe otra diferencia sustancial entre la 
versión APL y las versiones BASIC y PAS- 
CAL de nuestro programa de ordenación. 
El programa APL sirve para cualquier nú- 
mero de elementos de A (no sólo tres), 
mientras que los programas BASIC y PAS- 
CAL sólo sirven para ordenar tres elemen- 
tos. Más adelante veremos cómo pue- 
den generalizarse también, utilizando 
otras instrucciones de bucle. 

Además, el programa APL no tiene ne- 
cesidad de declarar ninguna de sus va- 
riables, por lo que no existirá en principio 
ningún límite al número de datos que 
puede ordenar (excepto por las limita- 
ciones intrínsecas de la memoria de la 
máquina). En BASIC y PASCAL, sin embar- 
go, como veremos más adelante, tendre- 
mos siempre que fijar un límite máximo al 
tamaño de la variable A dentro de nues- 
tro programa. 

Veamos cómo se aplica el programa 
APL a la ordenación de un número cual- 
quiera de valores: 


ORDENAR 
D: 


134.528.510: 2 
“e Te $7:4:5-10 
ORDENAR 


D: 
335113 
VEAIS 


'D Otras instrucciones del bucle 


Uno de los casos de bluce más utiliza- 
dos consiste en ejecutar una o más ins- 
trucciones cierto número de veces 
preespecificado. Esto podría resumirse 
asi: 


HACER 20 VECES instrucción; 


Es posible realizar esta operación me- 
diante el bucle WHILE que ya hemos vis- 
to. En BASIC, por ejemplo, se haría así: 


10 I1=0 
20 WHILE 1<20 
30 instrucción 
40 I=I+1 

50 WEND 


mientras que en PASCAL se podría hacer 
asi: 


var 
izinteger; 

begin 

i:=0; 

while i<20 do begin 
instrucción; 
i:=i+1 

end; 


end. 


Sin embargo, se trata de una construc- 
ción tan frecuente, que casi todos los 


lenguajes disponen de una forma reduci- 
da (y de palabras reservadas especia- 
les) para definirla. Exceptuamos, como 
siempre, el lenguaje APL, donde no exis- 
te ninguna palabra reservada ni instruc- 
ciones especiales de bucle. 

Veamos cómo se construye en BASIC 
este tipo de estructura: 


10 FOR I=i TO 20 
20 instrucción 
30 NEXT 1 


Así, pues, podemos representarla con 
sólo tres instrucciones, cuya traducción 
literal es: «Para! = 1 hasta 20, hacer la ins- 
trucción y pasar al siguiente valor de l». 
Como es natural, las tres instrucciones 
pueden escribirse en una sola línea: 


10 FOR I=1 TO 20 2 instrucción : NEXT 1 


Su organigrama es: 


Naturalmente, en lugar de una instruc- 
ción podemos incluir varias dentro del 
bucle: 


10 FOR I=i TO 20 
20 instrucción-1 
30 inmstrucción-2 
40 instrucción-3 
50 NEXT I 


Estas instrucciones pueden ser asignacio- 
nes de valor, instrucciones condicionales 
u otros bucles, incluso de este mismo 
tipo. Sin embargo, si se incluye un bucle 
FOR dentro de otro bucle FOR, es necesa- 
rio utilizar una variable diferente para 
cada uno. Además, las instrucciones 
NEXT tendrán que venir en el orden ade- 
cuado: la correspondiente a la variable 
del bucle más interno debe aparecer pri- 
mero, tal como en el siguiente ejemplo: 


10 FOR I=1 TO 20 
20 FOR J=1 to 4 
30 instrucción 
40 NEXT J 

50 NEXT 1 


Para terminar, veamos cómo puede uti- 
lizarse la instrucción FOR para modificar 
el programa BASIC que ordena tres nu- 
meros en orden ascendente, de tal ma- 
nera que pueda aplicarse a la ordena- 
ción de un número de valores diferente. 


10” INPUT N 
20” DIM A(N) 

30 FOR I=1 TO N : INPUT A(I) : NEXT I 
40 LET X=0 

50 WHILE X=0 

60 LET X=1 

70 FOR I=1 TO N-1 

80 I1F ACI)>A(I+1) THEN LET Y=A(1+1): 
LET A(I+1)=A(1): LET A(1)=Y: LET X=0 
NEXT 1 


Veamos lo que hace: la instrucción 10 
lee el numero de valores que queremos 
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ordenar, que guardamos en la variable 
N. La instrucción 20 define la variable A 
como una serie de N valores. 

La instrucción 30 forma un bucle que 
lee sucesivamente todos los valores que 
queremos ordenar. Obsérvese que el nú- 
mero de veces que vamos a realizar el 
bucle puede ser una variable. 

Las instrucciones 40, 50, 60 y 100 son 
idénticas a las que utilizamos en versión 
anterior del programa. 

Las instrucciones 70, 80, 80 forman un 


nuevo bucle que compara cada término 
de la serie con la siguiente y los inter- 
cambia en caso de que el primero sea 
mayor que el segundo (si estaban en or- 
den incorrecto). Este bloque generaliza 
las dos instrucciones condicionales de la 
versión anterior al caso de ordenar N va- 
lores. 


Finalmente, la instrucción 110 utiliza un 
nuevo bucle para escribir por la pantalla 
el resultado de la ordenación efectuada. 


Comandos 
de la hoja 
electrónica 


ARA conocer cada 
uno de los mandatos 
del menú vamos a ir 
viéndolos en el mis- 
mo orden en que 
aparecen: 


HOJA contiene co- 


mandos referidos a la: 


hoja de trabajo, presentando las siguien- 
tes opciones: 


A: HEN 
Boja Rango Copiar Mover Fichero Imprimir Gráfico Datos Sistema Terminar 
Global, Insertar, Suprimir, Columna, Borrar, Títulos, Ventana, Estado, Página 

A B c D B P 6 A 


l. GLOBAL. Son mandatos que afec- 
tan a la hoja entera: 


Formato. Modifica la forma en que se 
visualizan los valores de una celda o ran- 
go de celdas. Los formatos disponibles 
son: fijo, científico, monetario, general, 
+/-, %, día, texto y oculta. 

Prefijo. Determina si la alineación es a 
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HOJAS DE CALCULO: LOTUS 1-2-3 


la derecha, en el centro o a la izquierda 
(por defecto). 

Ancho. Varía el ancho de la columna 
indicada. 

Recálculo. Controla el momento, orden 
y número de veces que se volverán a calcu- 
lar las fórmulas de la hoja de trabajo 
cuando se realiza alguna modificación. 
Podrá ser: natural, por columnas, fila a 
fila, automático, manual o con iteracio- 
nes. 

Bloqueo. Funciona con /Rango Prote- 
ger y /Rango Dejar para impedir que se 
modifiquen determinadas celdas de la 
hoja. 

Config. Permite establecer parámetros 
de configuración en la impresora, direc- 
torio, estado... 

SuprimeCeros. Determina si en la pan- 
talla aparecerán o no los valores de 
cero, pero siempre se almacenarán, aun- 
que no aparezcan. 


2. INSERTAR. Inserta filas o columnas 
en la hoja de trabajo, desplazando las ya 
existentes. 

3. SUPRIMIR. Con este comando se 
pueden eliminar filas o columnas de la 
hoja, perdiendo así su contenido. 

4. COLUMNA. Permite modificar el an- 
cho de una columna. 

5. BORRAR. Con este comando des- 
aparece la hoja de trabajo actual y apare- 
ce la hoja en blanco inicial. Si no se ha 
grabado la hoja, se perderá todo su con- 
tenido. 

6. TITULOS. Este comando fija colum- 
nas o filas en una posición de la pantalla 
para permitir el desplazamiento por una 
hoja grande. Corresponde a un coman- 
do de ventanas en el que pueden seña- 
larse una sola fila o columna. 

7. VENTANA. Divide la pantalla en dos 
ventanas horizontales y verticales, se 
puede pasar de una a otra mediante una 
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tecla de función. Activando la opción 
Sinc se sincroniza el movimiento de las 
dos ventanas simultáneamente. 


8. ESTADO. Con este comando se pue- 
de visualizar (no modificar) el estado de 
memoria y especificaciones; pulsando 
una tecla se vuelve al punto de partida. 


9. PAGINA. Este comando sitúa un sal- 
to de página en la hoja de trabajo actual 
de forma que la impresión de la hoja 
bajo el salto se realiza en la página si- 
guiente. 


RANGO permite realizar algunas opera- 
ciones con rangos de celdas: 


A: 

Hoja Rango Copiar Mover Pichero Imprimir Gráfico Datos Sistema Terminar 

Pato, Rótulo, Borrar, Hombre, Justif, Proteger, Dejar, Entrada, Yalor, Transponer 
c D B P 


1. Fmto para dar el formato numérico. 


2, _Rótulo para variar la alineación de 
los rótulos de la hoja a la derecha, al 
centro o a la izquierda. 


3. BORRAR para eliminar el contenido 
de una celda o rango de celdas. 


4. Nombre para asignar un nombre al 
rango o a una celda. 


5. Justif. Este comando trata texto 
continuo como un párrafo, cambiando la 
disposición de las palabras para que nin- 
guna de las líneas sea mayor que el an- 
cho especificado. 


6. Proteger para impedir el acceso a 
una celda o rango. 


7. Dejar para desproteger celdas. 


8. Entrada para limitar el movimiento 
del cursor a celdas dentro del rango es- 
pecificado. 


9. Valor convierte una fórmula en su 
valor. 


10. Transponer permite variar la posi- 
ción de un fila o una columna. 


COPIAR permite copiar el contenido de 
una celda o rango de celdas en otra/s 
celda/s. 


M: 
Hoja Rango Copiar Mover Fichero Imprimir Gráfico Datos Sistema Terminar 
Copia una celda o rango de celdas 

A B c D B P 6 A 


1 
2 
3 


MOVER permite trasladar el contenido 
de una celda o grupo de celdas a otra 
celda o grupo de celdas. 


M: MENU 
Boja Rango Copiar Mover Pichero Imprimir Gráfico Datos Sistema Terminar 
Mueve una celda o rango de celdas 
p B c D 13 r 6 A 
1 


FICHERO permite realizar operaciones 
con ficheros y directorios. 


AM: 
Hoja Rango Copiar Mover Pichero Imprimir Gráfico Datos Sistema Terminar 
Recuperar, Grabar, 


Combinar, Itraer, Borrar, Listar, Importar, Directorio 
A B 1d 6 B 


1. Recuperar. Recupera un fichero de 
tipo hoja del disco y lo copia en la me- 


moria. Los ficheros de hoja llevan la ex- 
tensión. WK 1. 

2. Grabar almacena el contenido to- 
tal de la hoja de trabajo actual en un fi- 
chero de tipo .WK1. 

3. Combinar incorpora un fichero a la 
hoja actual en la posición que indique el 
cursor. 

4. Xtraer copia en el fichero seleccio- 
nado la hoja o rango de la hoja actual 
que se indique. 

5. Borrar suprime un fichero del disco. 

6. Listar presenta en la pantalla una 
lista de los ficheros que se encuentran en 
el disco de la unidad activa. 

7. Importar incorpora ficheros escritos 
en ASCII estándar. 

8. Directorio permite cambiar el di- 
rectorio actual de disco. 


PASCAL 


El tipo SET 


MAGINEMOS un pro- 
grama con un «menú» 
de opciones numera- 
das del 1 al 8, de ma- 
nera que, cuando se 
escojan las opciones 
1, 2, 3 y 4, se tenga 
que ejecutar una ac- 
ción común como, por ejemplo, borrar la 
pantalla; tras la instrucción de lectura de 
la opción podríamos poner: 


if (1 <= Opcion) and (Opcion <=4) 
then CirScr; 


Supongamos ahora que las opciones 
no fueran éstas, sino, por ejemplo, 1, 3, 4 
y 5. Como ya no son consecutivas, para 
detectar que Opcion es alguna de ellas 
habría que utilizar un test mucho más 
complejo que además no valdría si en al- 
gún momento cambiásemos las opcio- 
nes del menú que utilizan el procedi- 
miento: 


if (Opcion = 1) or 
((3 <= Opción) and (Opción <= 5)) 
then... 


Si el conjunto de valores de Opcion 
para el que quisiéramos borrar la panta- 
lla fuese aún mayor y con valores más 
salteados, la expresión booleana nece- 
saria para indicar si el valor de la varia- 
ble se encuentra en ese conjunto sería 
aún más compleja. 

Afortunadamente, el PASCAL posibilita 
trabajar con conjuntos de elementos de 
una manera muy cómoda y permite, en- 
tre otras cosas, comprobar si un dato se 
encuentra en un conjunto dado directa- 
mente. 

Los conjuntos formados por 1, 2, 3, 4 y 
1, 3, 4, 5, por ejemplo, se expresarían asi: 

(1,2,3,4), (1,3,2,4) o (4,3,2,1), etc., para 


el primero y (1,3,4,5) o (1,5,4,3), etc., para 
el segundo. 


es decir, poniendo entre corchetes la lis- 
ta de elementos que los forman separa- 
dos por comas; da lo mismo el orden que 
se utilice. Los elementos pueden ser de 
cualquier tipo escalar, pero, por supues- 
to, en un mismo conjunto todos los ele- 
mentos deben ser del mismo tipo. 

Cuando varios de los elementos están 
seguidos, como es el caso de todos los 
del primer conjunto y tres del segundo, 
es posible definirlos de manera abrevia- 
da: 

(1..4) para el primero y 

(1,3..5) o (3..5,1) para el segundo 


utilizándose, por tanto, una notación simi- 
lar a la de los subrangos. El conjunto de 
todas las letras mayúsculas y minúsculas 
se podría expresar así: 
AE Mozos 11) 

Antes de entrar en detalles veamos 
una primera aplicación de los conjuntos 
que ya hemos mencionado anteriormen- 
te: es posible saber si un elemento se en- 
cuentra en un conjunto dado por medio 
del operador IN, que devuelve, según el 
caso, el resultado lógico TRUE (caso de 
encontrarse) o FALSE. Con ese operador 
las dos instrucciones IF anteriores se es- 
cribirían de la siguiente manera: 


if Opción in (1..4) then CirScr; 
it Opción in (1,3..5) then CirScr; 


Es posible definir variables de tipo con- 
junto, es decir, variables donde poder 
guardar un conjunto de elementos. Si es- 
cribimos: 


var 
Especiales: set of 41..6; 
DiasLibres: ser of DiaDeLaSemana,t; 


definiamos las variables Especiales y 
DiasLibres, que sirven, respectivamente, 
para guardar cualquier conjunto de nú- 
meros entre 1 y 6 y cualquier conjunto de 
días de la semana. O sea, tras las pala- 
bras reservadas SET (conjunto en inglés) 


y OF se indica el tipo de los elementos 
que pueden formar parte del conjunto, 
que debe ser siempre escalar o subran- 
go de éstos. Como sucede con otros ti- 
pos, es posible definir antes el tipo de 
conjunto: 


type 

Menu.t = set of 1..6; 
var 

Especiales: Menu.t; 


Para guardar conjuntos en una variable 
se utiliza el operador de asignación de 
la manera conocida: 


Especiales := (1..4); 
DiasLibres := (Sabado,Domingo); 


Con estas asignaciones se podrían es- 
cribir instrucciones como: 


if Opción in Especiales then CirScr; 
if not (Hoy in DiasLibres) then 
writeln ('Hoy hay que trabajar.”); 


Hoy sería una variable del tipo DiaDe- 
LaSemana.t, que ya conocemos desde 
hace tiempo. Nótese que se escribe «not 
(Esto in Aquéllo)», es decir, «not» de una 
expresión booleana, aunque en lengua- 
je humano pudiera parecer más lógico 
escribir «Esto not in Aquéllo». 

Dependiendo del compilador, hay un 
lÍímte para el máximo número de elemen- 
tos que pueden tener los conjuntos; ha- 
bitualmente es 256. Por ello, no se podría 
definir un SET OF INTEGER, pues un conjun- 
to de estas características podría llegar 
a tener miles de elementos. El mayor con- 
junto del tipo Menu.t sería, sin embargo 
(1,2,3,4,5,6), que tiene seis elementos. 

En todo caso, el menor conjunto posi- 
ble es el vacío, aquél que no tiene nin- 
gún elemento; se describe simplemente 
con dos corchetes: (). 


7 
Expresiones con conjuntos 


Las operaciones entre conjuntos que 
dan como resultado otro conjunto son la 
unión, la intersección y la diferencia, que 
se indican, respectivamente, con los sig- 
nos +, * y -. Como siempre, en caso de 
necesidad se pueden utilizar paréntesis. 


La unión de dos conjuntos da como re- 
sultado otro del mismo tipo formado por 
los elementos de ambos: 


“A”,'E') + ('A”,P) igual a “A”, EP); 
4) + (2) igual a (1,2); 
) + (Lunes) igual a (Lunes); 


La intersección, sin embargo, da el 
conjunto de los elementos comunes a 
ambos: 


“A”,E') » ((A*,1) igual a Di 
4,2) * (3,4) igual a ( ); 
Lunes) * (Lunes,Martes) gual a (Lunes); 


Por último, la diferencia devuelve el 
conjunto formado por los elementos del 
primero que no se encuentran en el se- 
gundo: 

“A*,E') - ((A?,P) igual a E ) 
Lunes,Martes)-(Lunes) igual a (Martes); 


| Operaciones lógicas 
con conjuntos 


Ya conocemos la prueba de pertenen- 
cia, que se escribe poniendo en primer 
lugar el elemento (constante, variable o 
expresión) cuya pertenencia a un con- 
junto se desea comprobar, seguida de la 
palabra reservada IN, tras la que viene el 
conjunto en cuestión (constante, varia- 
ble o expresión que dé como resultado 
un conjunto del tipo adecuado). Formas 
correctas son: 


Lunes in (DiasLibres - (Lunes)) 
4 + 2 in Especiales 


Entre dos conjuntos se pueden dar las 
siguientes operaciones lógicas: 


— Igualdad: 

Ma = ((2,1) + (3)) es TRUE 
iasLibres = () es FALSE 
— Desigualdad: 

A <> ((2,1) + (3)) es FALSE 
iasLibres <> () es TRUE 


— Inclusión, es decir, comprobar que 
todos los elementos de uno de ellos es- 
tán en el otro; se expresa por medio de 
los operadores que, en otras circunstan- 


EN 
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cias, significan «menor o igual que» (que 
ahora sería «está incluido en») y «mayor 
o igual que» («engloba a»): 


1 ES A 3 »|] ,6 
DD. Us | _ de, O h > y 


'O Ejemplo 


Supongamos que hay que formar equi- 
pos de fútbol con los alumnos de una cla- 


program Partidos; 


const 
Max = 100; 
MaxEquipos = 10; 


type 
Alumno_t = 1..Max; 


se y que éstos se encuentran numera- 
dos empezando por el 1. Vamos a escri- 
bir un programa al que se le faciliten los 
números de los alumnos de los diferentes 
equipos que se deseen formar, para que 
después nos diga qué partidos no se 
pueden realizar, partiendo de la base de 
que el número total de alumnos no es un 
múltiplo exacto de 11 y que, por ello, ha- 
brá alumnos figurando en más de un 
equipo. 

Los equipos los guardaremos en varia- 
bles del tipo «conjunto de alumnos» pero, 
como puede haber varios, será una tabla 
de ellas lo que utilizaremos: 


(kx Como máximo 100 alumnos X) 
(kx Como máximo 10 equipos  X) 


Equipo_t = set of Alummo_t; (* Conjuntos de alumnos X) 


var 


Conjunto : array [1..MaxEquipos] of Equipo_t; 


Total, 
NumEquip, 
Equipo, 
Contrario, 


Alumno : integer; 


(kX Para guardar el número de alumnos X) 
(X Para guardar el número de equipos *X) 


procedure FormarEquipo (var Eq: Equipo_t); 
(x Rellena un equipo con los jugadores tecleados *) 


var 
I z integer; 
Alumno: Alumno_t; 
z boolean; 


(k En principio no tiene jugadores X) 


3:12:11 to 311 do 
begin 
repeat 
write (*Alumno: ?); 
readin (Alumno); 


(k comprobar que es válido y no está repetido: *) 


Ok := (Alumno in [1..TotalJ) and not (Alummo in Eq); 
if not Ok then writeln (”No vale. Repita.”) 


until Ok; 


Eq := Eq + [AlumnmoJ 


procedure Comparar ( A, B: Equipo_t); 


(k se añade al equipo *) 


(X Busca los jugadores comunes a dos equipos X*) 


var 
Alumno: Alummo_t;3 
begin 
(kX busca alumno por alumno: X*X) 
for Alumno := 1 to Total do 


if (Alumno in A) and (Alumno in B) then vwriteln (Alumno) 


procedure MostrarEquipos (Al: Alumno_t); 
(X Busca los equipos en los que está un alumno X*) 


var 
Equipo : integer; 
TieneEquipo: boolean; 
begin 


wite (*Alumno”*,A1:3,? Equipos: ?); 


(X todavía desconocemos si tiene equipo: %*) 
TieneEquipo := false; 


(k para cada alumno, busca equipo por equipo: *) 
for Equipo := 1 to NumEquip do 
if Al im Conjunto [Equipo then 
begin 
TieneEquipo := true; 
write (Equipo,” ”) 
end; 


if TieneEquipo then writeln 


else writeln (*No figura en ninguno.” ) 
end; 


begin 
C1rSCr; (%* o PAGE, etc. Xx) 
write (”Número total de alumnos: ?); 
readin (Total); 
write (”Número de equipos: ?); 
readin (NumEquip); 


AAA x) 
(k Formar los equipos de uno en uno: X) 
MAA x) 
for Equipo := 1 to NumEquip do 

begin 

writeln; 


writeln (”*Equipo número ”*,Equipo); 
FormarEquipo (Conjunto [Equipol) 
end; 


(k Probar todos los emparejamientos posibles: *k) 
(k (véase la explicación en el texto) 


writeln; 
for Equipo := 1 to NumEquip -— 1 do 
for Contrario := Equipo + 1 to NumEquip do 


(kX mirar si hay jugadores compartidos: X*X) 


if Conjunto [Equipo *X Conjunto [Contrario <> [7] then 
begin 
writeln; 
write (*No puede jugar el equipo ”*,Equipo); 
writeln (”? contra el equipo ”,Contrario);3 
writeln (”*Los jugadores comunes son: ”); 


Comparar (Conjunto [Equipol, Conjunto [ContrarioJ) 
end; 


writeln (*”Pulse Intro.?”); 
readln; 
writeln; 
writeln ("Listado por alumnos.”); 
witeln: 1 = ==» >o nm Le 
Á for Alumno := 1 to Total do MostrarEquipos (Alumno) 


/ end. a 
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Supongamos que hubiera cuatro equi- 
pos. En este caso, los partidos posibles 
(en principio) serian: 


— el 1 contra los equipos 2, 3 y 4. 
— el 2 contra los equipos 3 y 4. 
— el 3 contra el equipo 4. 


y de ahí los dos bucles FOR utilizados 
para ver los partidos posibles; por otra 
parte, la condición para que un partido 
se pueda celebrar es que los dos equi- 
pos no tengan jugadores comunes. 


COBOL 


[M)Procedimientos 


NA de las últimas téc- 
nicas de programa- 
ción aboga por la 
modularización de 
los programas. Con- 
siste en descompo- 
ner un gran problema 
en otros más peque- 
ños y de más fácil solución. 

También ocurre con relativa frecuencia 
que determinado grupo de instrucciones 
se ejecutan varias veces en un mismo 
programa. 

Para realizar la modularización y evitar 
que un mismo grupo de instrucciones 
aparezcan más de una vez, existen los 
procedimientos. 

El formato de esta instrucción es: 


PERFORM nombre-procedimiento-1 ( THRU 
nombre-procedimiento-2 ) 


Si en una sentencia PERFORM sólo se 
pone un nombre de párrafo, se ejecutan 
las instrucciones que lo formen y cuando 
acabe con la última, retorna a la instruc- 
ción que sigue al PERFORM. Es importante 
tener claro el concepto de retorno: siem- 
pre se continúa ejecutando la instruc- 
ción que se encuentra a continuación 
del PERFORM. 

Si se desea ejecutar un grupo de pro- 
cedimientos, se pone el nombre del 
párrafo del primero de ellos en nombre- 
procedimiento-1 y el último en nombre- 
procedimiento-2. 


OTROS LENGUAJES 


IDENTIFICATION DIVISION. 
PROGRAM-1D. EJ-PERFORM. 


ENVIRONMENT DIVISION. 


DATA DIVISION, 


WORKING=STORAGE SECTION. 


01 DATO-1 PIC 9(3). 
01 DATO-2 PIC 9(3). 


PROCEDURE DIVISION. 


INICIO. 

DISPLAY *TECLEE PRIMER DATO”. 
ACCEFT DATO-1. 

DISPLAY *TECLEE SEGUNDO DATO” 
ACCEPT DATO-2. 

PERFORM OFER-2. 

DISPLAY DATO-1 * * DATO-2. 
PERFORM OFEF-1 THRU OPER-3. 
DISPLAY DATO-1 * ”? DATO-2. 


FIN-FROGRAMA. 
STOF RUN. 


OFER-1. 
ADD 10 TO DATO-1. 
IF DATO-2 NOT < 10 
SUETRACT 10 FROM DATO-2. 


ADD 20 TO DATO-1. 
IF DATO-2 NOT < 20 
SUETRACT 20 FROM DATO-2. 


ADD 730 TO DATO-1. 
IF DATO-2 NOT < 30 
SUBTRACT 30 FROM DATO-2. 


MEA) 
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En este programa se observa cómo los 
procedimientos pueden aparecer a con- 
tinuación del STOP RUN, ya que éstos no 
se ejecutan en línea al ser llamados des- 
de un PERFORM. 

Suponiendo que los valores introduci- 
dos a DATO-1 y DATO-2 son 940 y 50, res- 
pectivamente, la ejecución del progra- 
ma sería la siguiente: 

En primer lugar, se llama al procedi- 
miento OPER-2. Por tanto, se sumará 20 a 
DATO-1 y como DATO-2 es mayor que 20 
se les restará 20. En este punto se ha fina- 
lizado la ejecución del procedimiento 
OPER-2 y se retorna a la instrucción si- 
guiente: DISPLAY DATO-1 ” DATO-2. 

En pantalla se presenta 960 030. 

El siguiente PERFORM establece que de- 
ben ejecutarse los procedimientos 
OPER-1, OPER-3 y todos los que se en- 
cuentren entre ambos. Se ejecutan en se- 
cuencia OPER-1, OPER-2 y se llega a 
OPER-3. La instrucción de retorno displa- 
ya en la pantalla el resultado de la eje- 
cución: 020 000. 

El programa finaliza con el STOP RUN. 


IDENTIFICATION DIVISION. 
PROGRAM-1D. EJ-ITERACIONES. 


ENVIRONMENT DIVISION. 


DATA DIVISION. 


WORKING-STORAGE SECTION. 


O1 N-VENTA 

01 CON-VENTAS 
01 ACU-ARTI 
01 ACU-IMP 

01 IMF 

01 MEDIA-ARTI 
01 MEDIA-IMF 


01 DATOS-VENTA. 

OS N-ARTI 

OS FRECIO 
PROCEDURE DIVISION. 


INICIO. 


Iteraciones 


Todos los ejemplos vistos hasta ahora 
se limitan a tomar unos datos, tratarlos y 
escribir el resultado de las operaciones 
una sola vez. Pero lo normal sería que el 
programa continuase pidiendo datos 
hasta que el programador desease fina- 
lizar, por lo que se deben poder estable- 
cer repeticiones o iteraciones. Para ello 
existe un formato nuevo de la misma ins- 
trucción PERFORM. 


El procedimiento o rango de procedi- 
mientos seleccionados se ejecutará 
mientras la condición que acompaña al 
PERFORM no se cumpla. Se ejecuta la si- 
guiente instrucción sólo cuando la con- 
dición sea cierta. 


Como ejemplo pensemos en una tien- 
da que desea obtener al final del día el to- 
tal de las ventas obtenidas. 


VALUE ZERO. 
VALUE ZERO. 
VALUE ZERO. 


DISPLAY *PARA FINALIZAR EL PROGRAMA TECLEE "N"”. 
ACCEPT N-VENTA. 
PERFORM VENTAS UNTIL N-VENTA 
IF CON-VENTAS > O 

COMPUTE MEDIA-ARTI = ACU-ARTI / CON-VENTAS 


COMFUTE MEDIA-IMF 
ELSE 

MOVE ZERO TO MEDIA-ARTI 

MOVE ZERO TO MEDIA-IMP. 
DISPLAY *ARTICULOS VENDIDOS 


”N?. 


ACU-IMP / CON-VENTAS 


? ACU-ARTI. 


DISPLAY *MEDIA ARTICULOS VENDIDOS * MEDIA-ARTI. 


DISPLAY ” IMPORTE DE LAS VENTAS 
DISPLAY *MEDIA IMFORTE DE VENTAS 


FIN-PROGRAMA. 
STOP RUN. 


” ACU-IMP., 
”. MEDIA-IMP. 


VENTAS. 
ADD 1 TO CON-VENTAS. 


DISPLAY *VENTA NUMERO: * CON-VENTAS. 
DISPLAY *TECLEE NUMERO DE ARTICULOS ”. 


ACCEFT N-ARTI. 


DISPLAY ”*TECLEE PRECIO DEL ARTICULO ”. 


ACCEPT FRECIO. 


COMPUTE IMP = N-ARTI * PRECIO. 
DISPLAY ”? IMPORTE VENTA ”? IMP, 


ADD N-ARTI 
ADD IMP 


TO ACU-ARTI. 
TO ACU-IMP. 


DISPLAY *PARA FINALIZAR EL PROGRAMA TECLEE "N"”. 
ACCEFT N-VENTA. 


Los campos CON-VENTAS, ACU-ARTI y 
ACU-IMP van a ser acumuladores, se les 
irán sumando cantidades, por lo que de- 
ben tener un valor inicial para evitar los 
errores de ejecución. 

En primer lugar, se pregunta si se desea 
terminar el programa. Si el contenido de 
N-VENTA es distinto de «N», la condición 
de UNTIL es falsa y las instrucciones del 
procedimiento se ejecutan. 

En el procedimiento VENTAS se incre- 
menta en uno el valor de CON-VENTAS 
(número de ventas realizadas). 


Se pide el resto de los datos, calculan- 
do el importe de la venta, acumulando 
este. Al final del procedimiento se vuel- 
ve a preguntar si se desea finalizar. 


Cuando N-VENTA sea «N», no se ejecu- 
tará el procedimiento VENTAS y sí el IF 
que le sigue. En este IF se comprueba si 
se ha realizado algna venta con el fin de 
no provocar un error de ejecución si el 
número de ventas es cero. 


Antes de finalizar se muestran los resú- 
menes pedidos. 


== Y EDICIONES y SIGLO y CULTURAL y == 


